home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / batch / MiniMen.lha / MiniMen / DMSX < prev    next >
Encoding:
Text File  |  1999-08-24  |  450 b   |  21 lines
  1. echo c
  2. Requestfile >env:FDMS TITLE="Choose DMS file to extract"
  3. if warn
  4.    echo "*N Operation canceled....!"
  5. endif
  6. MiniMen drives
  7. if exists env:minmen
  8.    assign >nil: exists $MinMen:
  9.    if warn
  10.       mount >nil: sys:storage/dosdrivers/$MinMen
  11.    endif
  12.    if $MinMen EQ "PC0"
  13.       undms $FDMS to $MinMen: PC VERIFY
  14.    ELSE
  15.       undms $FDMS to $MinMen: VERIFY
  16.    ENDIF
  17. else
  18.    echo "*N Operation canceled...!"
  19. endif
  20. delete >nil: env:MinMen env:FDMS
  21.